home *** CD-ROM | disk | FTP | other *** search
/ Dino Crisis Digital Press Kit / Dino Crisis Digital Press Kit.iso / mac / Xtras / Behavior Library for Java.cst / 00051_Script_51 < prev   
Text File  |  1998-04-08  |  631b  |  38 lines

  1. --java_play_done and java_play
  2.  
  3.  
  4.  
  5. -- Behavior Library 1.1 for Java Utility Lingo
  6.  
  7.  
  8. global play_stack
  9.  
  10. on java_play dest
  11.   
  12.   if voidp(play_stack) = TRUE then
  13.     set play_stack = []
  14.   end if
  15.   
  16.   if stringp(dest) = True then
  17.     --assume string is a marker name
  18.     add (play_stack, the frame)
  19.     go frame marker(dest)
  20.   end if
  21.   
  22.   if integerp(dest) = True then
  23.     add (play_stack, the frame)
  24.     go frame dest
  25.   end if
  26.   
  27.   return
  28. end
  29.  
  30. on java_play_done
  31.   if count (play_stack) < 1 then return
  32.   
  33.   set x = getlast(play_stack)
  34.   deleteAt (play_stack, count(play_stack))
  35.   
  36.   go frame x
  37. end
  38.